home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Alles Voor Internet / Tout Pour Internet
/
alles voor internet.iso
/
MacInternet™
/
Telnet
/
Minitel
/
logon.mt
next >
Wrap
Text File
|
1993-03-11
|
793b
|
23 lines
{ logon.mt - script program to dial INFONET then logon to the network }
dial { dial INFONET - uses config modem type & number }
pause 20 { let modem and network get ready }
dopf 4 { invoke netlogon.mto }
{ see if a particular SERVICE was requested }
if service then
{ can't request a service unless the userid and password were sent }
if password then
if userid then
{ wait for service prompt }
wait 600
case '^Q' { wait for cursor on command }
type service SEND
failure
message 'Service prompt not received'
endwait
endif
endif
endif
end